home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t8.d64 / boot c64 comal (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  1KB  |  49 lines
  1. 10 PRINT "[147]"; : REM CLEAR SCREEN
  2. 20 POKE 53281,0 : REM BACKGROUND BLACK
  3. 30 POKE 53280,12: REM BORDER MED. GRAY
  4. 40 PRINT "[152]";   : REM PENCOLOR MD GRAY
  5. 51 PRINT "LOADING COMMODORE 64 COMAL VERSION 0.14 [146]";
  6. 60 PRINT "[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  7. 70 PRINT "COMAL HAS MOST OF BASIC PLUS STRUCTURES"
  8. 80 PRINT "OF PASCAL AND THE LOGO TURTLE GRAPHICS."
  9. 120 PRINT
  10. 130 PRINT "TUTORIAL: FOUNDATIONS ... WITH COMAL"
  11. 145 PRINT "DOCUMENTATION: COMAL HANDBOOK
  12. 150 [153] "NEWSLETTER: COMAL TODAY
  13. 155 PRINT
  14. 160 PRINT "            AVAILABLE FROM:            "
  15. 165 PRINT "[158]"; : REM PENCOLOR YELLOW
  16. 170 PRINT "  COMAL USERS GROUP, U.S.A., LIMITED   "
  17. 180 PRINT "          6041 MONONA DRIVE            "
  18. 185 PRINT "          MADISON, WI 53716[152]
  19. 190 [153] "SEND SELF ADDRESSED STAMPED ENVELOPE OR"
  20. 200 [153] "CALL SYS608-222-4432PRINT# FOR MORE INFO."
  21. 210 [153]
  22. 215 [153] "SYS"; : [143] PENCOLOR YELLOW
  23. 220 [153] "YOU ARE ALLOWED TO USE THIS VERSION ONLY";
  24. 230 [153] "ON THE COMMODORE 64 UNCHANGED. YOU MAY"
  25. 240 [153] "MAKE COPIES FOR YOUR SCHOOL AND FRIENDS."
  26. 245 [153] "PRINT#"; : [143] PENCOLOR MD GRAY
  27. 250 [153] "COMAL PROGRAMS ON THIS DISK ARE LOADED:"
  28. 270 [153] "   LOAD "[199](34)"NAME"[199](34)
  29. 272 [153] "   RUN"
  30. 275 [153] "POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
  31. 280 [153] "BACKUP THIS DISK WITH 1541 BACKUP FIRSTWAIT";
  32. 290 [151] 2023,160
  33. 300 [151] 56295,12
  34. 899 [143]
  35. 900 [143]
  36. 905 [153] "";
  37. 910 [143] CHAIN"HI + <RETURN KEY>
  38. 920 POKE 198,9
  39. 930 POKE 631,ASC("C")
  40. 940 POKE 632,ASC("H")
  41. 950 POKE 633,ASC("A")
  42. 960 POKE 634,ASC("I")
  43. 970 POKE 635,ASC("N")
  44. 980 POKE 636,34
  45. 990 POKE 637,ASC("H")
  46. 1000 POKE 638,ASC("I")
  47. 1010 POKE 639,13
  48. 1020 LOAD "C64 COMAL 0.14",8
  49.